home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGASIC / BASFILES.LZH / DESTFILE.BAS < prev    next >
BASIC Source File  |  1988-09-10  |  1KB  |  64 lines
  1. '$INCLUDE: 'QBTOOLS.INC'
  2. '' '$INCLUDE: 'qbtools2.inc'
  3.  
  4. FUNCTION DestroyFile% (FileName$)
  5.   
  6.     REDIM Trashit%(2000)
  7.  
  8.     IF FileExists%(FileName$) THEN
  9.  
  10.         k% = 0
  11.         FOR j% = 1 TO 2000
  12.             Trashit%(j%) = 0
  13.             k% = k% + 1
  14.             IF k% > 255 THEN
  15.                 k% = 0
  16.             END IF
  17.         NEXT j%
  18.  
  19.         w% = FREEFILE
  20.         IF w% THEN
  21.             OPEN FileName$ FOR RANDOM AS #w%
  22.             LenFile& = LOF(w%)
  23.             CLOSE w%
  24.             IF FileOpen%(FileName$, 0, 0, hZapFile%) THEN
  25.                 DestroyFile = 1
  26.             ELSE
  27.                 IF FilePosition%(hZapFile%, 0, 0) THEN
  28.                     Dummy% = FileClose%(hZapFile%)
  29.                     DestroyFile = 1
  30.                 END IF
  31.  
  32.                 DO
  33.                     IF LenFile& > 4000 THEN
  34.                         LenFile& = LenFile& - 4000
  35.                         WrtBuff% = 4000
  36.                     ELSE
  37.                         WrtBuff% = LenFile&
  38.                         LenFile& = 0
  39.                     END IF
  40.  
  41.                     IF WrtBuff% THEN
  42.                         IF FileWriteArray%(hZapFile%, Trashit%(1), WrtBuff%) THEN
  43.                             Dummy% = FileClose%(hZapFile%)
  44.                             DestroyFile = 1
  45.                         END IF
  46.                     END IF
  47.  
  48.                     IF LenFile& = 0 THEN
  49.                         EXIT DO
  50.                     END IF
  51.  
  52.                 LOOP
  53.  
  54.                 KILL FileName$
  55.                 DestroyFile = 0
  56.             END IF
  57.         END IF
  58.     ELSE
  59.         DestroyFile = 1
  60.     END IF
  61.  
  62. END FUNCTION
  63.  
  64.